function  [cl1_pl,cl2_pl,cl3_pl,cl1_pw,cl2_pw,cl3_pw,cl1_sl,cl2_sl,cl3_sl,cl1_sw,cl2_sw,cl3_sw] = men(k,cluster,plength,pwidth,slength,swidth)
sc1_pl=0;
sc2_pl=0;
sc3_pl=0;
sc1_pw=0;
sc2_pw=0;
sc3_pw=0;
sc1_sl=0;
sc2_sl=0;
sc3_sl=0;
sc1_sw=0;
sc2_sw=0;
sc3_sw=0;


cl1_pl=0;
cl2_pl=0;
cl3_pl=0;
cl1_pw=0;
cl2_pw=0;
cl3_pw=0;
cl1_sl=0;
cl2_sl=0;
cl3_sl=0;
cl1_sw=0;
cl2_sw=5;
cl3_sw=0;

count_c1=0;
count_c2=0;
count_c3=0;

  
for i= 1:150
    if strcmp(cluster(k,i),'1')
        count_c1=count_c1+1;
        sc1_pl = sc1_pl+plength{i,1};
        sc1_pw = sc1_pw+pwidth{i,1};
        sc1_sl = sc1_sl+slength{i,1};
        sc1_sw = sc1_sw+swidth{i,1};
    elseif strcmp(cluster(k,i),'2')
        count_c2=count_c2+1;
        sc2_pl = sc2_pl+plength{i,1};
        sc2_pw = sc2_pw+pwidth{i,1};
        sc2_sl = sc2_sl+slength{i,1};
        sc2_sw = sc2_sw+swidth{i,1};
    else
        count_c3=count_c3+1;
        sc3_pl = sc3_pl+plength{i,1};
        sc3_pw = sc3_pw+pwidth{i,1};
        sc3_sl = sc3_sl+slength{i,1};
        sc3_sw = sc3_sw+swidth{i,1};
    end
end


cl1_pl = sc1_pl/count_c1;
cl1_pw = sc1_pw/count_c1;
cl1_sl = sc1_sl/count_c1;
cl1_sw = sc1_sw/count_c1;
cl2_pl = sc2_pl/count_c2;
cl2_pw = sc2_pw/count_c2;
cl2_sl = sc2_sl/count_c2;
cl2_sw = sc2_sw/count_c2;
cl3_pl = sc3_pl/count_c3;
cl3_pw = sc3_pw/count_c3;
cl3_sl = sc3_sl/count_c3;
cl3_sw = sc3_sw/count_c3;
    


